##### Expression of CBX1 in bone tumor cell lines

library("ggplot2")

head(bone_list)

sarcoma_list<-
bone_list %>% filter(tumor_type != "Ewings sarcoma")




ggplot(sarcoma_list)+  
  geom_segment(aes(x=cell_line_type, xend=cell_line_type,
                   y=0,yend=cbx1),color="grey")+
  geom_point( aes(x=cell_line_type, y= cbx1, color= tumor_type),size = 3) +
  coord_flip()+
  facet_wrap(~tumor_type, ncol=1,scale="free_y")+
  xlab("")+
  ylab("Expression of CBX1")

###### save files in pdf and tiff formats#####
ggsave("Expression of CBX1 in bone tumor cell lines.pdf")
ggsave("Expression of CBX1 in bone tumor cell lines.tiff")
ggsave("Expression of CBX1 in bone tumor cell lines.emf")